600 INPUT"[CLR,DOWN]NUMMER DES BILDES";D:
610 FOR C=1 TO 7:Z=PEEK(8085+C)
620 IF Z=D THEN G=32*D:GOTO650
640 NEXT
650 IF A=5 THEN A=4:LOAD"HI-PRINT",8,1
660 POKE3340,G:POKE3336,32:SYS3328:POKE53265,59:POKE53272,24
665 SYS3383
670 POKE3340,32:POKE3336,G:SYS3328:POKE53265,155:POKE53272,21
680 IF A=5 THEN RETURN
690 A=1 GOTO 50